home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 5-Fonts & Software / Applications / Persuasion / Persuasion 2.0 / Persuasion 2.0.rsrc / PREC_103 < prev    next >
Text File  |  1990-04-02  |  2KB  |  23 lines
  1. userdict begin/PE_pd dup 46 dict def end load begin
  2. /bdf{bind def}bind def/xdf{exch def}bdf
  3. /PE_gf{/PE_BI xdf/PE_BS xdf/PE_GI xdf/PE_GS xdf/PE_RI xdf/PE_RS xdf/PE_N xdf/PE_T xdf}bdf/PE_ed{end}bdf
  4. /PE_T 0 def/PE_N 1 def/PE_RS 0 def/PE_RI 1 def/PE_GS 0 def/PE_GI 1 def/PE_BS 0 def/PE_BI 1 def/PE_LX 0 def/PE_LY 0 def/PE_RX 1 def/PE_RY 1 def
  5. /PE_rc{1 index 3 index 4 2 roll 5 index 1 index moveto lineto lineto lineto closepath fill}bdf
  6. /PE_ov{gsave translate scale 0 1 moveto 0 0 1 0 180 arc 0 0 1 180 360 arc closepath fill grestore}bdf
  7. /PE_cc{dup load 3 2 roll sub PE_N 1 sub div def}bdf
  8. /PE_ci{PE_RS /PE_RI PE_cc PE_GS /PE_GI PE_cc PE_BS /PE_BI PE_cc}bdf
  9. /PE_cs{PE_RS dup PE_RI add /PE_RS xdf PE_GS dup PE_GI add /PE_GS xdf PE_BS dup PE_BI add /PE_BS xdf setrgbcolor}bdf
  10. /PE_hi{dup 3 index exch sub PE_N div 5 -2 roll pop 1 index 3 index add 5 -2 roll PE_ci PE_N}bdf
  11. /PE_hb{PE_hi{PE_cs 4 copy PE_rc pop 1 index 5 2 roll 2 index add 5 3 roll}repeat}bdf
  12. /PE_vi{3 index 2 index sub PE_N div 5 -2 roll exch pop 3 index 2 index add exch 5 -2 roll PE_ci PE_N}bdf
  13. /PE_vb{PE_vi{PE_cs 4 copy PE_rc 5 1 roll pop 1 index 5 2 roll 1 index add 5 2 roll}repeat}bdf
  14. /PE_oi{1 index 4 index add 2 div 1 index 4 index add 2 div 6 2 roll 1 index 4 index sub 2 div abs 1 index 4 index sub 2 div abs 
  15. 2 copy 10 2 roll exch PE_N div neg exch PE_N div neg 10 2 roll PE_ci PE_RS PE_GS PE_BS setrgbcolor PE_rc PE_N}bdf
  16. /PE_oe{{PE_cs 4 copy PE_ov 6 2 roll 2 index add 6 1 roll 2 index add 6 3 roll}repeat}bdf
  17. /PE_ob{PE_oi PE_oe}bdf
  18. /PE_ai{cleartomark mark PE_LX PE_LY PE_RX PE_RY 4 2 roll itransform 4 2 roll itransform}bdf
  19. /PE_oc{4 2 roll transform 4 2 roll transform /PE_RY xdf/PE_RX xdf /PE_LY xdf/PE_LX xdf}bdf
  20. /PE_vr[/PE_hb load/PE_vb load/PE_ob load{PE_ai PE_hb}bind{PE_ai PE_vb}bind{PE_ai PE_ob}bind/PE_oc load]def
  21. /doop{pop gsave mark pathbbox eoclip newpath PE_vr PE_T get exec cleartomark grestore newpath}bdf
  22. end
  23.